home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 43
/
64er_Magazin_Sonderheft_43_19xx_Markt__Technik_de_Side_A.d64
/
sortieren 2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
546b
|
32 lines
10 rem****** sortieren 2 **********
12 :
20 z=0
25 read plz$,st$
30 if plz$="@" then 45
35 z=z+1
40 goto 25
45 dim plz$(z),st$(z)
50 restore
55 for i=1 to z
60 read plz$(i),st$(i)
65 next i
67 :
70 t=0
75 input "name der stadt";nst$
80 for l=len(nst$) to 2 step-1
83 :
85 for k=1 to z
90 if left$(nst$,l) = left$(st$(k),l) then print plz$(k),st$(k):t=1
95 next k
98 :
100 if t=1 then 70
105 next l
110 print"stadt nicht in der liste"
998 :
999 :
1000 data 8470,nabburg,5441,nachtsheim
1005 data 6509,nack,6506,nackenheim
1010 data 8590,nagel,7270,nagold,2061,nahe
1015 data 2121,nahrendorf,8674,naila
2000 data @,@